RELOJ EQU 12H

VECINT 	SEGMENT AT 0H
	ORG 1CH*4
	VEC8 LABEL WORD
VECINT	ENDS

DATOS 	SEGMENT
	DIRINT DD ?
DATOS	ENDS

PILA 	SEGMENT
	DB 100 DUP(0)
PILA	ENDS

CODIGO SEGMENT
	ASSUME DS:DATOS, CS:CODIGO, SS:PILA, ES:VECINT

INSTALAR PROC
	PUSH AX
	MOV AX,VEC8
	MOV WORD PTR DIRINT,AX
	MOV AX,VEC8+2
	MOV WORD PTR DIRINT+2,AX
	CLI
	MOV CX,00H
	MOV AX, OFFSET MANEJADOR
	MOV VEC8,AX
	MOV VEC8+2,CS
	STI
	POP AX
	RET
ENDP

DESINST PROC
	PUSH AX
	CLI
	MOV AX, WORD PTR DIRINT
	MOV VEC8,AX
	MOV AX, WORD PTR DIRINT+2
	MOV VEC8+2,AX
	STI
	POP AX
	RET
ENDP

MANEJADOR PROC

	PUSH AX DS
	MOV AX,DATOS
	MOV DS,AX
	XOR AH,AH
	CMP CX,RELOJ
	JE CERO
	INC CX
	JMP SALIR	
CERO:	MOV CX,00H
	CALL ACTUALIZAR
SALIR:	POP DS AX
	IRET

ENDP

ACTUALIZAR PROC
	PUSH AX
	
	MOV DL,41H
	MOV AH,02H
	INT 21H	

	POP AX
	RET
ENDP



INICIO:	
	XOR AX,AX
	MOV AX,VECINT
	MOV ES,AX
	MOV AX,DATOS
	MOV DS,AX

	CALL INSTALAR

	MOV AH,10H
	INT 16H

	MOV AH,4CH
	INT 21H	
	
CODIGO ENDS

END INICIO